home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
cfd.src
< prev
next >
Wrap
Text File
|
1991-10-19
|
557b
|
32 lines
%%HP: T(3)A(R)F(.);
@ CFD (Chemical Formula Display Utility) by Frank Seipel
\<< 0 \-> px py str cn
\<< 1 str SIZE
FOR j str j j
SUB DUP NUM 'cn'
STO
IF '57\>=cn AND
cn\>=48'
THEN 1 \->GROB
PICT SWAP px py 4 +
2 \->LIST SWAP REPL
px 4 + 'px' STO
ELSE DUP
IF "@" SAME
THEN DROP
str DUP SIZE j 1 +
SWAP SUB 2 \->GROB
PICT SWAP # 50d py
2 \->LIST SWAP REPL '
j=80' DEFINE
ELSE 2
\->GROB PICT SWAP px
py 2 \->LIST SWAP
REPL px 6 + 'px'
STO
END
END
NEXT
\>>
\>>